<!--#include file="Firewall.asp"-->
<!--#include file="Ini.asp"-->

<%
sCONTADOR = Request("CONTADOR") 
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open sCo1, sCo2, sCo3
  sEMISSAO =  MONTH(NOW) & "/" & DAY(NOW) & "/" & YEAR(NOW) & " " & HOUR(NOW) & ":" & MINUTE(NOW) & ":" & SECOND(NOW)

  ESCOLA=REQUEST("ESCOLA")
  TELEFONE=REQUEST("TELEFONE")
  DDD=REQUEST("DDD")
  CONTATO=REQUEST("CONTATO")
  OBS=REQUEST("OBS")
  EMAIL=REQUEST("EMAIL")
  PNLD_ENTREGOU=REQUEST("ENTREGOU")
  PNLD_CAIXA=REQUEST("CAIXA")
  PNLD_RESPONSAVEL=REQUEST("RESPONSAVEL")
  PNLD_LIGACAO=REQUEST("LIGACAO")
  PNLD_ADOTOU=REQUEST("ADOTOU")
  PNLD_ESCOLHA=REQUEST("ESCOLHA")
  MATEMATICA  =UCASE(REQUEST("MATEMATICA"))
  IF MATEMATICA="ON" THEN
    MATEMATICA="S"
  ELSE
    MATEMATICA="N"
  END IF
  PORTUGUES   =UCASE(REQUEST("PORTUGUES"))
  IF PORTUGUES="ON" THEN
    PORTUGUES="S"
  ELSE
    PORTUGUES="N"
  END IF
  HISTORIA    =UCASE(REQUEST("HISTORIA"))
  IF HISTORIA="ON" THEN
    HISTORIA="S"
  ELSE
    HISTORIA="N"
  END IF
  GEOGRAFIA   =UCASE(REQUEST("GEOGRAFIA"))
  IF GEOGRAFIA="ON" THEN
    GEOGRAFIA="S"
  ELSE
    GEOGRAFIA="N"
  END IF
  CIENCIAS    =UCASE(REQUEST("CIENCIAS"))
  IF CIENCIAS="ON" THEN
    CIENCIAS="S"
  ELSE
    CIENCIAS="N"
  END IF



  SSQL= "INSERT INTO ESCOLAS_VISITA (COD_ESCOLA,VISITA,DIVULGADOR,DATA_REAL,HORA,HORA_REAL,OBS,CONTATO,FUNCAO,ATIVIDADE)"&_
	" VALUES("& ESCOLA &",'"& sEMISSAO &"','"& SESSION("USUARIO") &"','"& sEMISSAO &"','"+MHORA+"','"+MHORA+"','"& OBS &"','"&CONTATO&"','','Divulg.PNLD')"
    Conn.Execute(sSql)	


  SSQL= "UPDATE ESCOLA SET "&_
	" PNLD_ENTREGOU='"& PNLD_ENTREGOU &"'   "&_
	", PNLD_CAIXA='"& PNLD_CAIXA &"'   "&_
	", PNLD_RESPONSAVEL='"& PNLD_RESPONSAVEL &"'   "&_
	", PNLD_LIGACAO='"& PNLD_LIGACAO &"'   "&_
	", PNLD_ADOTOU='"& PNLD_ADOTOU &"'   "&_
	", PNLD_ESCOLHA='"& PNLD_ESCOLHA &"'   "&_
	", FONE='"& TELEFONE &"'   "&_
        ", OBS='"& OBS &"'" &_
	", DDD='"& DDD &"'   "&_
	", EMAIL='"& EMAIL&"'   "&_
        ",PNLD_ESCOLHA_MATERIAS='"& MATEMATICA & PORTUGUES &  HISTORIA & GEOGRAFIA & CIENCIAS &"'"&_
        " WHERE CODIGO= "& ESCOLA &""
    Conn.Execute(sSql)	


'RESPONSE.WRITE SSQL
'RESPONSE.END


'RESPONSE.WRITE   "MAT:" & MATEMATICA & "-PORT:" & PORTUGUES & "-HIST:" &  HISTORIA  & "-GEO:" & GEOGRAFIA  & "-CIEN:" & CIENCIAS
'RESPONSE.END



Conn.Close : Set Conn = Nothing
Response.Redirect "pnld_2014_incluir.asp?ESCOLA="&ESCOLA


%>
</body>
</html>